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1 , SCOPE 


• i 

This specification establishes the baseline configuration of 
"ECTL2". This program was developed in response to TIRF 76-0057 
"ERIM Tape Conversion to LARSYS II." 

2. APPLICABLE DOCUMENTS 

• TIRF 76-0057 — ERIM Tape Conversion to LARSYS II — August 18, 

1976 

• LEC-9369 - Technical Memorandum Project Development Plan for 

the ERIM Tape Conversion to LARSYS II Program - 
September 3, 1976 

• A.D. 63-1327-1693-01 - ERIM Tape Conversion 

3. SYSTEM DESCRIPTION 


3.1 HARDWARE DESCRIPTION 
N/A 


3.2 SOFTWARE DESCRIPTION 

The program "ECTL2" is designed to take a four file input tape in 
ERIM format and under option create a two or four file output tape 
in LARSYS II format. 

3.2.1 MAIN PROGRAM 

ECTL2 consists of this main routine and one subroutine (3.2.2). 
This main routine handles all functions of the program except 
spacing of the input tape. 


3. 2. 1.1 Linkages - None 


3. 2. 1,2 Interfaces - None 


J . 2 . 1 . 3 Inputs 

Input to this program consists of a tape in ERIM format and 
responses to program queries on the computer terminal. 

3. 2. 1.4 Outputs 

Output from this program is a magnetic tape in LARSYS II format. 

3.2.1. 5 Storage Requirements 
025174 ? 

3 . 2 . 1 . 6 Description 

The main routine functions in the following manner: 

a. Query user for input parameters 

b. Format and write output header record 

c. Space input tape to desired start line 

d. If format 2 is indicated go to h 

e. Read and sort input file 

f. Combine next input file with saved one reformat and write 
to output tape. 

g. If finished two sets exit program, otherwise go to c. 

h. Read input tape, reformat data and write to output tape 

i. If finished four files exit program, otherwise go to h. 

3. 2.1. 7 Flow Charts 
See Appendix A. 

3. 2 . 1. 8 Listing 
See Appendix B. 
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3.2.2 SUBROUTINE SPACE 


This subroutine is used to read the input tape and space forward 
a requested number of files. 

3. 2. 2.1 Linkages 
None 

3. 2. 2. 2 Interfaces 

I .iii—i i i — . ———■»> 

None 

3 . 2 . 2 . 3 Inputs 

Input to this subroutine consists of the number of records to be 
spaced forward on the input tape and the address of the buffer 
in which to place the data. 

3. 2. 2. 4 Outputs 

Output from this subroutine consists of an EOF indicator on/off 
and the data from the record specified by the number requested. 

3. 2. 2.5 Storage Requirements 
272 7 

3. 2. 2. 6 Description 

This subroutine simply calls the tape I/O read routine the 

number of times specified in the calling sequence to SPACE and 

turns on an EOF indicator if one is encountered during the 

reading process. 

3. 2. 2. 7 Flow Charts 
See Appendix C. 
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3. 2. 2. 8 Listing 
See Appendix D. 


4. OPERATION 


4.1 USER DOCUMENTATION 

a. Insure a clean scratch disk 

b. Mount input tape on unit MTI and a new scratch tape for output 
on unit MTO 

i 1 

c. Sign on the system 

d. Answer queries from terminal 

e. Observe output tape being written 

f. After processing is complete dismount both tapes and sign off 
the system. 


APPENDIX A 



POSITION INPUT 
TAPE TO DESIRED 
LINE 


INPUT 

TAPE 

"MTO" 


' OUTPUT 
FILE FMT 
. = 2 ? 
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RAGE i 


0001 

0002 
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,0005 

OOOR 


0007 
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0010 

0011 


0012 

0013 

001 U 

0015 
ooit. 
0017 

0016 

0019 

0020 
0021 
0022 
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0020 
0025 
0020 
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0028 

0029 

0030 

0031 

0032 

0033 

0030 

0035 
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C 
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c 
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PROGRAM FCTL? 

THRLTCTT INTFGRR (A-Z) 

COMMON /STATUS/IAWCC25 
COMMON /WOROS/RECSZiFLAG 

-DIMENSION HEApt (60). HEADOC200), REClNt 1000) iRECOUT (2000) 
PI MENS TON fOTRfZOO) #08KRFC(1000) 


CALL 

CAU 

CALL 


CAt l 
CALL 


TINIT (6.0.0) 
flNTT (9,8#!) 

ASSIGN •(7» , OK2|ECTL2*#0) 


T*TCH 

TATCM 


(A) 

( 9 ) 


t 

loo 

200 

10 

no 

210 

20 

120 

220 


130' 

230 


'.OR. OFF .Gf. 2 ) GO TO 10 


TYPE 100 

FORMAT (1M0, 'OUTPUT TAPE NUM8ER ■ •) 
ACCEPT 200. OUTTN 
FORMAT (HO 
TYPE 110 

FORMAT (1H0, 'OUTPUT FILE FORMAT • ') 
ACCEPT ?10. OFF 
FORMAT (Tl> 

IF (OFF .LT, 1 

TYPE V20 

FORMAT (1H0. 'LTNFS ■ ' 1 
ACCEPT 220'. FRflM, A# TO 
FORMAT (ttt.Al.TO) 

LINEC a TO-FPOmtI 
IF (LTNEC ’.LT. n 60 TO 
TYPE t3p ...... 

FORMAT (IHO.'RFCPRO SIZE IN WOROS ■ •) 
230. RECS7 
C T At) 


20 


ACCEPT 

FORMAT 


PASS a 
LCSV • 
FUEN i 


1 

LINFC 

0 


RECNUm a 0 
FROMA a FROM 


A 1 


C 

c . • 

C WRITE 
C 


THE "OUTPUT VfADER RECORD 


0036 23 RECOIJTM) * 0 v 

0037 RRCOUt(Z) ■ OUTTN 

0036 _ .. FILEN ■_ FJLEN__i, J_ 

0039 00 2<i I a 1. 7 

OOAO 20 RECOUT ( 1*2) ■ 0 
OOttl RECOUT MO) * 1 
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/TP|BLOe*S/W» 


ooa? 


I F (OFF .FQ*. i) RECPUT(tO) • 2 

00«3 


9Eeoi'r(tn ■ 0 

0044 


B£f0UT(l2) ■ (®ECSZ*2> ♦ 6 

0045 


RfceOUT(4> i FI! tW 

0006 


no 555 T ■ ! # 386 

-0007,, 

... 555.. 

0 

REC0Ut(IM21 ■ 257 . , 

0005 

b 

DO 666 I ■ 1 * O00 

0009 

666 

C 

CALL SW 46 f BRCnUT 

0050 

e 

c 

CALL TWRTT (9, RECOUT, 400) 

0051 

c 

25 

ORC ■ 1000 

0052 


START ■ 6R0MA 

0053 

30 

0 

CALL SPACE <START # 9ECIN) 

0050 

k 

IF (Off ’.EO. 21 60 TO 1000 

0055 

fc 

* 

IF (Fi.A6 >(?'. T) GO TO 2005 


e write a recobo to nisw save me 

0 

0056 

V 

WRITE f 73 RECIM 

0057 


LIWEC ■ LIWEC il 

0056 


ORC ■ DRC - 1 

0059 


START ■ 1 

0060 


IF (ORC '.in. 01 SO TO 2000 

0061 ' 

c 

IF CllWrC ’.NF. 01 GO TO 30 

• 

0062 

c 

2000 

0 

CALL fFllf («,?) ' , 

0063 

2005 

TLTN s JO -.FROM T 1 

0060 


IF (L I^EC ’.EQ. 01 IL IN « LCSV 

0065 


(IRC ■ 1000 

0066 


START « FROMA 

0067 


REWINij 7 

0066 

00 

CA! L SPACE (START, RECI*0 

0069 


IF (Fj AS .FQ. f) GO TO 3500 • 

0070 


READ (7) DSKREC 

0071 

2010 

RECOUT (2) « 32767 

0072 


RECNUm k rECWUm ♦ 1 

0073 


RFCOMf(l) ■ RECNUM 

0074 


CALL SWAP (RFCnUTMJJ 

0075 


00 20?0, !■ 1 , R*C5? 

0076 

2020 

RECOUf ( I ♦?) ■ 6SKREC(I1 

0077 


RECOUT (RFcSZ+31 ■ 0 

0076 


REPOUt (RFCSZ*R1 ■ 0 

0079 


RFPOUT(RECS7*51 » 0 

0080 


00 2010 T i 1, RFCSZ 

0061 

2030 

RECOUT f I*5*Rf CSZ1 « HECIN(I) 

0062 


J8WC • (RECSZARU8 

0063 


RECOUT (RECSZ*2*6l ■ 0 
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/TR'|«LOCt<5/WR 
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0080 


REC O'UtTrF c S 2 * 2*71 f ■ 0 


0085 

p 

RECOUt( b FC 8 Z* 2 * 8 > * 0 


0085 

C 

p 

CAU t“RIT ( 5 ,»ECOtJT*JR'»e) 


0067 

r 

til* , XU.N.-JL ... 


0088 


DRC ■ ORC • 1 


008 * 


IF (ORC ’.EG. 0 ) GO TO 3000 


0050 


START i 1 


0051 

c 

IF (ILIN .ME’, 0 ) GO TO 00 


0052 

c 

3000 

REWIND 7 ‘ 


0053 


IF (LTNEC .CO. 0 ) GO T 0 . 3 «q 0 


0050 


FRflMA ■ FfOMA ; 1000 


0055 


•EWINp 7 


0056 


l.CRV ■ LTNEC 


0057 


IF (Ra .65 .F< 5 . ?) GO TO 3100 


0098 


CALL TRWO ( 8 ) 


0059 


GO TO 25 


0100 

3100 

CAt L TFILE ( 6 ,- 2 ) 


0101 


CALL fF JLF ( 8 , 1 ) 


0102 

C 

p 

GO TO 25 


0103 

c 

3000 

CALL TFILE ( 8 ,?) 


0100 

35 (H) 

CAI L TFOF f 9 ) 


0105 


B EwiNn 7 • . 


0106 


IF (PASS .EO. 2 ) GO TO 9000 


0107 


>ASS t 2 v 


0106 


LIWEC * TO • FROM + 1 


0109 

0 ) 

GO TO 22 



c 

e' 

c 

i? ' ‘ 


0110 

£ 

1000 

REf OllT( 2 ) « 32767 


0 1 1 1 


RECNUH ■ RFCNUf * 1 


0112 


RICOUTM) « RErwilv 


0113 


CALL SWAP (RECflUTfin 


0110 


00 1010 T* 1 ,RECS 7 


0115 

1010 

RECOUf f I *?) ■ bECIN(I) 


0116 


RECOUTfRECSZ*3) « o 


0117 


RECOUf (9ECSZ*U) • 0 


one 


REC0UT(RPCSZ*51 » 0 


0119 

p 

JBWC i REC8Z75 


0120 

v. 

p 

CALL fWRTT (9.PECOUT, JBwC) 


0121 

c 

l I k 'EC ■ L I W EC m 1 


0122 


start ■ 1 



0123 

0120 

0125 


ORIGIN A’ 

OF pQ( 


t* 


IF f LT W EC .FO. 0) GO TO 1500 
CAU S B ACE (STAHT, BEGIN) 
if (^i ag .eb; 7) GO TO 1500 


RAGE 3 


^GS’fs 

f’ 

i t 


s 




FOPTPAN 


OUT 

0120 

0129 

oiso 

out 

_ 0132 „ 
0 1 S 3 
oisa 


0139 

0136 

0137 
0130 

0130 

0100 

0101 

0102 

0103 


0100 

0105 

0106 
010 ? 
0106 
010 Q 
0150 


0151 


TV.PIUS V02.00 22123157 ' Ol-DfC-76 0680 <* 

/TPj •LOCKS /w* 

1500 CAt a TFOF T6) 

10 (PASS .00*. 0) 80 TO 6000 

BOSS ■ PASS * 1 
L INEC ■ TO • FtO* ♦ 1 
IF (F| Ac .EO'. 1) 60 TO 22 

CALL TFJLE (B#?J 

FROM* ■ FOOM 7 1 
60 TO 22 
C 

c ’ *” - 

6000 BECOUffl) » PUTTN 
00 6100 Tb 1,166 
6100 PECOUT f I ) • 0 

COIL SWA* (PFCftUTM)) 

c 

CALL TWPTT (6# PECOIJT » 200) 
eAtL TFOF f 61 
CAUL T»WP f 6) 

CALL T0WO (01 
n*IHf> 7 
C 
c 
c 

TYPF PPQO 

9600 FQ9*AT (1Hfl#*Rl'»N COMPLETED*) 

TYPE 00<JO 

90UO F09MAT ( 1 HO * ' FIlPTwf P PP0CES5IN6 REQUIRED 7 •) 

ACCEPT 99*0. AMS 
PP50 FOPHAt ( A 2 1 .. . „ , 

IF CAnS .€«. ' V5 • 1 CO TO 1 
C 

c 

c 

END *. 1 
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FORTRAN 7V-PLU9 V02.00 

/TP|IL0C«l/W» 


0091 •UPPOUtTnI S*A> t"( STiAT.RECIN) 

c . . * 


0002 

0001 

0000 

0005 

0000 

0007 

0000 

oooo 

0010 

ooii, 

0012 

0013 

0010 

0015 

00 1 6 
0017 
0010 


c 

e space input tape fopwapd pcquesteo number of pecopos 

c 

th*lTc"i t" intfop o” To •! ) 

COMMON /WOPOS/OEC8Z#FLAC 
COMMON /STAni5>I0WC(21 
OIMENJIION PKClNdOOO) 

e 

TBS ■ PECS7 

10 eAU T«e*D (S#RECIN# IBS) 

CALL TSTAT (P.USTAT.RfSDU) 

FLAG ■ o 

IF <TANO(IJ9TAT,"200) #NE. 0) CO TO 20 

START • START • 1 

IF (START ’.NF. 01 CO TO 10 

RETURN 

20 TVPt 30 

30 FORMAT (1M0, 'ENO-OF. CO-FILE') 

FLAG a 1 

RETURN 

END 
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